home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / sspw / sspw.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-13  |  1.9 KB  |  72 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "SSPW"
  5.    ClientHeight    =   1485
  6.    ClientLeft      =   1605
  7.    ClientTop       =   1725
  8.    ClientWidth     =   2790
  9.    Height          =   1890
  10.    Left            =   1545
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   1485
  13.    ScaleWidth      =   2790
  14.    Top             =   1380
  15.    Width           =   2910
  16.    Begin CommandButton Command2 
  17.       Caption         =   "&Quit"
  18.       Height          =   495
  19.       Left            =   1440
  20.       TabIndex        =   2
  21.       Top             =   840
  22.       Width           =   1215
  23.    End
  24.    Begin CommandButton Command1 
  25.       Caption         =   "&Check PW"
  26.       Default         =   -1  'True
  27.       Enabled         =   0   'False
  28.       Height          =   495
  29.       Left            =   120
  30.       TabIndex        =   1
  31.       Top             =   840
  32.       Width           =   1215
  33.    End
  34.    Begin TextBox Text1 
  35.       Height          =   315
  36.       Left            =   120
  37.       TabIndex        =   0
  38.       Top             =   420
  39.       Width           =   2535
  40.    End
  41.    Begin Label Label1 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "Enter your Saver Password"
  44.       Height          =   255
  45.       Left            =   120
  46.       TabIndex        =   3
  47.       Top             =   120
  48.       Width           =   2475
  49.    End
  50. Option Explicit
  51. Sub Command1_Click ()
  52. Dim Password$
  53.   Password$ = Text1.Text
  54.   Call EncryptString(Password$)
  55.   If Password$ = GetPassword() Then
  56.     MsgBox "The Password you keyed matches your Saver Password"
  57.   Else
  58.     MsgBox "The Password you keyed does not match your Saver Password"
  59.   End If
  60.   Text1.SetFocus
  61. End Sub
  62. Sub Command2_Click ()
  63.   End
  64. End Sub
  65. Sub Text1_Change ()
  66.   If Text1.Text > "" Then
  67.     Command1.Enabled = True
  68.   Else
  69.     Command1.Enabled = False
  70.   End If
  71. End Sub
  72.